unit pfsqlconfig;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TFsqlConfig = class(TForm)
    btn1: TButton;
    btn2: TButton;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    procedure btn1Click(Sender: TObject);
  private
    Fproc: TProc<String, string, string>;
  public
    class function Execute(Aproc: TProc<String, string, string>): integer;
  end;

var
  FsqlConfig: TFsqlConfig;

implementation

{$R *.dfm}

procedure TFsqlConfig.btn1Click(Sender: TObject);
begin
  Fproc(Trim(LabeledEdit1.Text), Trim(LabeledEdit2.Text),
    Trim(LabeledEdit3.Text));
end;

end.
